約 2,022,174 件
https://w.atwiki.jp/kojiro/pages/101.html
値 HLOOKUP(検索値,範囲,行番号,検索の型) 検索値 範囲の上端行で検索する値を指定。 範囲 目的のデータが含まれる範囲を指定。セル範囲など 行番号 目的のデータが入力されている行を、上端からの行数で指定。 1 を指定すると上端の行の値が返されます。 2 を指定すると範囲の2 行目の値が返されます。 1 より小さいと#VALUE! を返します。 範囲の行数より大きいと#REF! を返します。 検索の型 TRUE か省略すると検索値未満で最も大きい値を返します。 FALSE を指定すると完全に一致する値だけを返し、見つからなければ#N/A! を返します。 例(上の表はExcel のシート) A B C 1 ギア ベアリング ボルト 2 4 4 9 3 5 7 10 4 6 8 11 =hlookup("ギア",A1 C4,2,[[TRUE]])=4 =hlookup("ベアリング",A1 C4,3,FALSE)=7 =hlookup("ベアリング",A1 C4,3,TRUE)=7 =hlookup("ボルト",A1 C4,4,)=11 比較する値が範囲の上端行にあり、その位置から指定された行だけ下にある値を取り出す時に使う、そうだが、LOOKUP シリーズはどれも値を昇順に並べ直しておかないと使えない場合があるので使ったことがない。 いつもMATCH 関数で行を特定してINDEX 関数で範囲から取り出してしまう。
https://w.atwiki.jp/kdpfrontier/pages/819.html
きよたいちる【登録タグ 著き 著者】 本検索 リンク Twitter ブログ「小鳥ピヨピヨ」 facebook 本 アボカドの弾丸 ダイレクト文藝マガジン 011号 「初登場 清田いちる / 牟礼鯨」 我が名は魔性 コメント 名前 コメント
https://w.atwiki.jp/tomokazu0525/pages/35.html
最終更新日時2011-02-16ここを編集 ■目次 関数フィルタをかけたときに使える関数。SUBTOTAL sumproduct その他の関数countif HYPERLINK その他 自分で関数を作る場合(ユーザー定義関数) ページフッタこのページの1階層上のページ このページの1階層下のページ このページに含まれるタグ このページへのアクセス数 ■本文 関数 フィルタをかけたときに使える関数。 SUBTOTAL SUBTOTAL sumproduct sumproductの引数として、ワイルドカードは有効に機能しない。 「含む」で検索したい場合には、他の関数との併用が必須。 方法1)left,right等で一部抽出して完全一致。 sumproductで県という文字を含むデータを計算するには? 方法2)isnumber関数とfindを併用。 SUMPRODUCT関数とISNUMBER関数の併用について - Yahoo!知恵袋 違う関数だが、ワイルドカードが使えないわけはここに詳しく書かれている。 エクセルでの「文字を含む」複数条件の個数算出方法 | OKWave その他の関数 countif COUNTIF関数「○○を含む」の指定 関数内に直接入力ではなく、A1セルの値「○○」を含むセルの値の検索なら、 COUNTIF($A$2 $A$1000,A1 "*")のように記述。 HYPERLINK 勉強用メモ - トップページ/windows/microsoft office/EXCEL/ハイパーリンク(hyperlink関数ほか) その他 INDIRECT関数 サイト名:Office TANAKA エラー表示しないように-ISERROR関数:Excel エクセルの使い方-関数/計算式-論理・情報 自分で関数を作る場合(ユーザー定義関数) 勉強用メモ - EXCEL/VBA/WEB連携以外のつまづきやすいとこ/自作関数 ここを編集 ページフッタ このページの1階層上のページ このページの1階層下のページ このページに含まれるタグ EXCEL このページへのアクセス数 今日: - 昨日: - これまで合計: -
https://w.atwiki.jp/a3mi22/pages/107.html
Excelで矢印キーを押してもセルを移動できない 「SCROLL LOCK」がONになってる。 「ScrLk」ボタンを押すとOFFになる。 (たぶんいつのまにか押しちゃったんだと思う。) 合計: -
https://w.atwiki.jp/ohden/pages/1023.html
シート名一覧の取得 Excel for Microsoft365 (16.0.13901.20366) 64bit Excelで任意のfileを開く。 起動したら『Alt+F11』でVisualBasic for Application(以降VBA)を開く。 VBAのメニューから[表示]-[イミディエイト ウィンドウ]を選択。 イミディエイト ウィンドウが開いたら、 For Each i In ThisWorkbook.Sheets debug.print i.name next i を入力。 イミディエイト ウィンドウにシート名一覧が出力される。コレをコピペすればok。 更新日: 2021年04月23日 (金) 15時46分50秒 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/hotmizu/pages/13.html
・ファイルパス取得 ・ファイル読込み
https://w.atwiki.jp/excelmasters/pages/25.html
トップページ マクロ(VBA)を使う マクロとは マクロとは マクロとは、もともと「作業」を簡略化するために作られたものです。詳しくは「マクロの記録」を参照してください。 ある作業を記録しておけば、ボタン1つでその作業をいつでもExcelが実行してくれます。 しかし、Excelのマクロ機能は普通のマクロではありません。Visual Basic for Application 、略して「VBA」はその名の通り、Excelなどのソフトのためのプログラミングツールです。 VBAを使えば、本当にどんなことでも出来てしまいます。「マクロウイルス」と呼ばれる、VBAで作成されたウイルスさえ存在します。 また、VBAではExcelの関数を使うこともできます。とても便利ですね。関数だけでは物足りないという方はぜひマクロにチャレンジしてください!!
https://w.atwiki.jp/truth-ura/pages/14.html
方眼用紙 幅=1.8 高さ=12 で作成するとちょうど方眼となる。 2x2マスに配置するShapeオブジェクトが32pxx32pxのサイズと同じになる。
https://w.atwiki.jp/kuriki_fan/pages/124.html
本名清田益章(きよたますあき)。1980年代に「スプーン曲げの超能力少年」として有名になったが、TV番組などでインチキを暴かれてしまった。2003年に「脱・超能力者」を宣言。2006年には大麻所持で有罪判決を受ける。 Wikipedia 栗城とのつながり 2010年のエベレスト遠征前の記者会見(エベレスト遠征 出発 記者会見 Ust動画(31:00ごろ))に、サプライズゲストとして登場。その後もプライベートで交流が続いていたようである。 Twitterをそろそろ再開しようと思います。今日は高知南中高等学校で講演をして、今お世話になっているスプーン曲げる凄い人ところでくつろいでます。 https //twitter.com/kurikiyama/status/312140134554419200
https://w.atwiki.jp/bottle/pages/21.html
スクリプトからVBA for Excelを動かす注意事項 スクリプト例 参照:Excelをバックエンドで処理させたい場合 注意:R6以降のEvaluate関数の引数について ツッコミ・コメント スクリプトからVBA for Excelを動かす この手の質問がやはり多めなので、一応掲載。 やり方次第ですが、あるビューに表示されたDBの文書を EXCELで書き出したりすることも可能です。 注意事項 VBA for Excelでの各メソッドで使用されるxl****のような定数は、 ノーツ・スクリプトにそのまま入力してもエラーするだけです。 かならず、以下のスクリプト例のようにConst宣言するか、 値のまま使用するかのどちらかで使用が可能になります。 定数の値のチェック方法は、VBA for Excelの定数の値を調べるを参照してください。 スクリプト例 以下のスクリプトは、あるCSVファイルをEXCELで整形及び集計させるための ボタン・アクション用スクリプト。 #管理人の一言 前に懇談室でスクリプトからEXCELでソートができないというトピックありましたが、 それの回答になるかな? (あの時はちとトラブってて回答できなかったの。。。) あとは複雑な式言語(@関数)をどうやってスクリプトに組み込むか。の参照にもなると思います。 で、管理人はなぜExcel VBAを遅いフロントエンドで処理するかっていうと 動いてるのが実感できるように(PCがロックしてると思われるのがヤダ)してるだけ。 Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set db = session.CurrentDatabase Set uidoc = ws.CurrentDocument Set doc = uidoc.Document 'Excelの定数は使えないので実際の値を定義します(定数名は同じにしてあります) 'Const xlPortrait = 1'縦 '入力チェック******************************************** flg = Messagebox ("集計表の作成を開始しますか?",33,"開始確認") If flg = 2 Then Messagebox"集計表の作成を中断します",64,"処理中断" Exit Sub End If ERRMSG = "以下の項目が入力・選択されていません。" motoERRMSG = ERRMSG '入力チェック If doc.Path(0) = "" Or doc.Path(0) = ".csv" Then ERRMSG = ERRMSG + Chr(10) + "・パス取得" End If If ERRMSG motoERRMSG Then Messagebox ERRMSG , MB_OK, "入力エラー" Exit Sub End If '入力チェック終わり*********************************** Dim XObj As Variant 'Excel自体のオブジェクト Dim Xwkbk As Variant 'ワークブック(1Excelファイル) Dim XSheet1 As Variant 'シート Dim XSheet2 As Variant 'シート Dim i As Integer Dim quotes As String Dim strFormula1 As String, strFormula2 As String quotes = Chr(34) 'エクセルのインスタンスを作成します Set XObj = CreateObject("Excel.Application") XObj.Visible = True Set Xwkbk = XObj.workbooks Xwkbk.Open(doc.Path(0)) '対象のファイルを開く Set XSheet1 = XObj.Worksheets(1)'本体の表のシート '★R6以降ではここから注意必要⇒参照★ '=IF(OR(LEFT(RC[2],1)="P",LEFT(RC[2],1)="R",LEFT(RC[2],1)="Z")=TRUE,RIGHT(RC[2],1), _ 'IF(LEFT(RC[2},1)="K",IF(MID(RC[2},2,1)="H","E",MID(RC[2},2,1)),IF(LEFT(RC[2},1)="H","E",LEFT(RC[2},1)))) 'の式を変数に設定 strFormula1 = "=IF(OR(LEFT(RC[2],1)=" quotes "P" quotes ",LEFT(RC[2],1)=" _ quotes "R" quotes ",LEFT(RC[2],1)=" quotes "Z" quotes _ ")=TRUE,RIGHT(RC[2],1)," "IF(LEFT(RC[2],1)=" quotes "K" quotes _ ",IF(MID(RC[2],2,1)=" quotes "H" quotes "," quotes "E" quotes _ ",MID(RC[2],2,1)),IF(LEFT(RC[2],1)=" quotes "H" quotes "," quotes "E" quotes _ ",LEFT(RC[2],1))))" '=IF(LEFT(RC[1],1)="K","K" MID(RC[1],3,5),MID(RC[1],2,5))の式を変数に設定 strFormula2 = "=IF(LEFT(RC[1],1)=" quotes "K" quotes "," quotes "K" quotes _ " MID(RC[1],3,5),MID(RC[1],2,5))" With XSheet1 .Name = "data"'シート名をdataに変更 .Activate'シートをアクティブに '表の整形開始 .Columns.EntireColumn.AutoFit '列幅を自動で設定 .Columns("A A").ColumnWidth = 10 'A列幅を10に .Columns("C C").ColumnWidth = 40 'C列幅を40に .Columns("B C").Insert'B~C列を挿入 '表題と式をB~C列に埋め込み .Range("B1").FormulaR1C1 = "S/E/M" .Range("C1").FormulaR1C1 = "共有No" .Range("B2").FormulaR1C1 = strFormula1 .Range("C2").FormulaR1C1 = strFormula2 EndCellAdr = .Range("A1").End(-4121).Row'表の一番下のセルの行番号取得 .Range("B2 C2").Copy .Range("B3 C" EndCellAdr ).PasteSpecial'表の一番下までコピー内容を貼付 '小計行を削除する。 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") '小計行を検索 Dim FCRow As Long Do While Not FCell Is Nothing FCRow = FCell.row .Rows(FCRow).Delete'検索された小計行を削除 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") Loop '今のシートをコピーして集計用シート作成 .Copy(XSheet1) End With Const xlSum = -4157 Dim aryCell(117) As Integer, cnt As Integer, m As Integer cnt = 17 '初期化 For m = 0 To 117 aryCell(m) = cnt cnt = cnt + 1 Next Set XSheet2 = XObj.Worksheets("data (2)")'本体の表のシート With XSheet2 '集計用シートの内容をソート .Name = "集計1"'シート名を集計1に変更 .Activate '表の一番下のセルの行番号取得 EndCellAdr = .Range("A2").End(-4121).Row .Range("A2").Select 'ソート実行(第1ソート・キーはA2、第2ソート・キーはC2) .Range("A2 ED" EndCellAdr).Sort XSheet2.Range("A2"), 1, XSheet2.Range("C2") 'まず区分で集計 .Range("A1 ED" EndCellAdr).Subtotal 1, xlSum, aryCell, False '再度表の一番下のセルの行番号取得 EndCellAdr = .Range("A1").End(-4121).Row .Range("A1 ED" EndCellAdr).Subtotal 3, xlSum, aryCell, False '次に共有Noで集計 End With End Sub 参照:Excelをバックエンドで処理させたい場合 以下の方法を使用することによりExcel出力が早くなります。 Re FORMの内容をEXCELに出力して印刷したい。(by ドミノ懇談室(2006~)) #作成者 :かえる りわ (Riwa Kaeru) 2007/1/29 (Mon) 01 52 PM Set excelApplication = CreateObject("Excel.Application") Set excelWorkbook = excelApplication.Workbooks.open("ファイル名") のように、ファイルをバックグラウンドで開き、 データの書き込みが全て終了した後に excelApplication.Visible = True で表示してあげれば表示更新の負荷を減らせるし、 データ書き込み中にユーザに触られる心配もありませんよ。 注意:R6以降のEvaluate関数の引数について 上に挙げた例で、R6以降にてEvaluate関数を使用するとエラーになるそうです。 R5では問題なく動きますけどね。。。 引数の式言語(@関数)にダブルクォーテーション等特殊文字を使用する場合の方法は以下を御参照ください。 Evaluate 関数が「Operation failed」エラーで終了する(by IBM公式) ツッコミ・コメント 名前 コメント